home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 40
/
040.d81
/
dugan's art depo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
4KB
|
110 lines
1 ifx>.then10
2 poke53280,.:poke53281,.
3 print"[147]"
4 print" [215]elcome to [196]ugan's [193]rt [196]epot..."
5 :
10 ifx=0thenx=1:load"unpacker",8,1
20 ifx=1thenx=2:load"bload.o",8,1
30 :
40 bl=828:unpack=51456:hgr=51459
50 :
55 np=10:dim t$(np),a$(np),r$(np)
57 forx=1tonp:readt$(x),a$(x),r$(x):next
60 gosub 50060: rem title screen
70 forx=1tonp:gosub60000
80 print"[154]"
82 printspc(19-len(t$(x))/2)""t$(x)"[146]"
84 print""spc(19-len(a$(x))/2)""a$(x)"[146]"
90 sysbl,16384,r$(x)
92 :
94 ifpeek(198)<>0thengeta$:poke198,0:ifa$="q"ora$="[209]"thengosub10000
96 poke249,224:poke250,204
98 poke251,0:poke252,64
99 poke253,0:poke254,0:print"[147]";:sysunpack:syshgr
100 ag=3.34
110 fordl=1to1500:ifpeek(198)=0thennextdl:goto120
112 geta$:ifa$="q"ora$="[209]"thensyshgr:gosub10000:syshgr
120 syshgr:print"[147]":poke198,0:next x
130 goto70
140 :
10000 rem a key was pressed
10005 poke53281,1:poke53280,5
10010 print"[147][144] [193]re you sure you want to quit [[217]/[206]]?"
10020 poke198,0:wait198,1:getag$
10030 ifag$="y"orag$="[217]"then30000
10040 return
30000 rem quit
30010 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
30020 ifer<>63thenprint"[147]":end
30030 load"hello connect",8
50000 rem data <title>,<author>,<real>
50010 data "[215]ater","[208]atrick [196]ugan",water.shp
50012 data "[196]eja [214]u","[208]atrick [196]ugan",deja.vu.shp
50014 data "[194]ird","[208]atrick [196]ugan",bird.shp
50016 data "[196]isk [196]rive","[208]atrick [196]ugan",diskdrive.shp
50020 data "[200]orse","[208]atrick [196]ugan",horse.shp
50022 data "[211]pace","[208]atrick [196]ugan",space.shp
50026 data "[211]treet","[208]atrick [196]ugan",street.shp
50030 data "[211]tatue","[208]atrick [196]ugan",statue.shp
50034 data "[211]ink","[208]atrick [196]ugan",sink.shp
50040 data "[208]ente'","[208]atrick [196]ugan",pente.shp
50060 rem title screen
50065 print"[147]":poke53281,1:poke53280,1
50072 print" [176]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174]"
50082 print" [221][204]oadstar [208]resents[221][152] "
50092 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
50102 print" "
50112 print
50122 print" [159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
50132 print" [221] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][159] [221][152] "
50142 print" [159][221] [221][196]ugan's [193]rt [196]epot[221][154] [159] [221][152] "
50152 print" [159][221] [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][154] [159] [221][152] "
50162 print" [159][221] [154] [159] [221][152] "
50172 print" [159][221] [221][152][160]"
50182 print" [159][221] [211]lide [211]how [208]resenter written [221][152][160]"
50192 print" [159][221] by [193]lan [199]ardner [221][152][160]"
50202 print" [159][221] ([195]) 1987 [221][152][160]"
50204 print" [159][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152][160]"
50212 print" "
50222 print
50232 print" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
50242 print" [221] [193]ll pictures created by [221][152] "
50252 print" [221] [208]atrick [196]ugan [221][152] "
50272 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
50282 print" "
50292 :
50302 print" [ Press any key to start the show[160]]";
50312 print"";
50314 poke198,0:wait198,1:poke198,0
50316 poke53281,5:return
59990 :
60000 :
60001 poke53281,1:poke53280,5
60005 print"[147][146] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
60010 print" [221][204]oadstar is proud to present:[221][152] "
60020 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
60030 print" "
60040 print
60050 print" [150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
60060 print" [221] [221][152] "
60070 print" [150][221] [154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][150] [221][152] "
60080 print" [150][221] [154][221] [221] [150] [221][152] "
60090 print" [150][221] [154][221] created by [221] [150] [221][152] [146][160]"
60100 print" [150][221] [154][221] [221] [150] [221][152] [146] [160]";
60110 print" [150][221] [154][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [150] [221][152] "
60120 print" [150][221] [150] [221][152] "
60130 print" [150][221] [221][152] "
60140 print" [150][221] [221][152] "
60150 print" [150][221] [154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][150] [221][152] [146][160]"
60160 print" [150][221] [154][221] [195]oming soon to a computer[221] [150] [221][152] [146][160]"
60170 print" [150][221] [154][221] near you. [221] [150] [221][152] [146][160]"
60180 print" [150][221] [154][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [150] [221][152] [146][160]"
60190 print" [150][221] [150] [221][152] [146][160]"
60200 print" [150][221] [221][152] "
60210 print" [150][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
60220 print" "
60230 print
60240 print" [ Press 'Q' to exit ]";
60250 print"";
60260 return